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EDITORIAL 



I Foi real men te espantosa a aceita?ao que SO PROGRAMAS obteve no seii 

'primeiro ntimero, intimeras cartas foram enviadas, algumas elogiando outras 
dando sugestdes e perguntas, outras fazendo crfticas construtivas alertando nossa 
equipe para os problemas ainda existentes na firea, mas que nem sempre podem 
ser detectados e resolvidos com facilidade, mas com certeza nao deixaremos de 
resolve-los, mesmo que estes sejam de uma minoria, ou at6 de uma s6 pessoa, 
mas nSo se esquecendo que esta publica^ao trata-se de SO PROGRAMAS, por 
outro lado nossa se^o de cartas resolvert outros problemas ou curiosidades que 
vierem a surgir. 

Lembrem-se de que, para obtermos sucesso suficientemente para agradar a 
todos os leitores dependemos dnica e exclusivamente de VOC£ LEITOR, e € por 
esse motivo, que em nome de toda equipe, transmito o nosso MUITO OBRIGA- 
iDO. 

\ Sidney Paretti I 

\ Produtor e Diretor T6cnico / 
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"Recebi o primeiro nurnero da rezista "SO PRO- 
GRAMAS" que me respondeu preenchendo urn 
vazio existente no mercado, at£ o surgirnento desta 
revista nao se conseguia urna publicagao que apre- 
sentasse program as simples e tantos err urna so 
publicagao das revistas existentes, quando rnuito 
encontrassc urna que traga tres ou quatro progra- 
mas, £ digna de e/ogios tambem a ap resen tag ao da 
revista com urna forma /eve e gostosa de ler e corn 
a bet fssirn a ap resen tag a o dos prog ram as e urna for- 
ma simples e c/ara de boa impressao e com tipos e 
disposigao de letras que faciUtam sua leitura duran- 
te a digitagao evitando os tao famigerados err os 
que causarn aquela decepgao de apos digitar 500 li- 
nhas de programa (e quanto maispior) verrnosnos- 
so programa nao funcionar e term os que perder 
rnais algurn tempo corrigindo os erros. 

Gostaria apenas de apontar a falta de program as 
para a /inha Apple (no primeiro nurnero ) ernbora 
concorde que a publicagao de programas para a 
linha Sinclair e TRS-80 (TKs, CP-200, CP-300, 
etc.) atendarn a quase total idade do mercado de 
micros pessoais no Brasil. Sin to- me desconso/ado 
ao nao encontrar pub/icagoes corn programas para 
o meu TK-2000 (Apple) e nem sempre conseguir 
rnodificar os com and os dos outros programas para 
adapta-los ao meu micro. Gostaria de pedir, sepos- 
sfvel, que voces pub/icassem a/guns prob/ernas para 
o TK-2000 ou para APPLE /i que af a adaptagao se 
torna rnais facil; ou que voces pub/icassem a/gurnas 
dicas para modificagao para outros micros. 

Creio que j£ tern os al guns possuidores do TK- 
2000 espa/hados por af e que este/am encontrando 
as mesmas dificuldades. 

Em sintese, "SO PROGRAMAS" £ urna publi- 
cagao digna de todos os elogios para a qua I trans- 
mito minhas fe/icitagdes e desejo depleno sucesso. 

PS. Abragos para o Alexandre. " 

Ricardo Caponero 

Rua Oliveira Peixoto, 148, casa 17 

01530 -Sao Paulo -SP 



Prezado Ricardo 

Antes de mais nada agradego os elogios e votos 
de felicidades, e tambem procurando manter os 
pontos favor£veis por voce citado, e quanto aos 
programas para o TK-2000, que por ser um compu- 
tador recente no mercado, e possuir linguagem de 
certo modo diferente dos outros computadores, 
estamos estudando e programando, para que no 
futuro publiquemos programas especialmente 
desenvolvidos para o TK-2000, quanto aos progra- 
mas para a linha APPLE, nos proximos numeros 
iremos publicar programas nessa linha de compu- 
tadores. Nos proximos numeros langaremos um 
mesmo programa para os computadores das linhas: 
oINCLAIR, TRS-80 e APPLE, e num futuro tam- 
b6m incluiremos o TK-2000, pois ele possui algu- 
mas diferengas mesmo com os da linha APPLE, 
quanto as dicas e problemas indico a revista 
"SOFT+HARD" desta mesma editora. 

PS. Abragos para o Alexandre tamb§m. 

(C$ entre n6s "6 letrinha".) 

"Adquiri ha pouco tempo um TK85 e gostei 
muito da pub/icapao "SC PROGRAMAS" que me 
forneceu tantos programas (instrutivos). E/es sao 
simples, praticos, de bons resultados, facil de en- 
tender, enfim , uma revista que auxi/ia muito aque- 
les que, como eu, se iniciam na area de informatics. 

Enviando meus cumprimentos a equipe de pro- 
gramadores, gostaria que dedicassem a! gum espapo 
comen tando e dando dicas sobre os video-games 
(se possfvel, orien tando suas programapdes) pois 
possuo um video-game A TARI. 

Em tempo, adorei o "t QUALQUER CO ISA", 
que provocou rea/mente bastante riso, e tambem 
do "i BAR RE IRA Aprendi muito com seus pro- 
gramas, muito mais que no manual. " 

Tetsuo Yokihama 

Av. 4, nO 2 — Rio Claro 

Sao Paulo — SP 

Prezado Tetsuo, antes de mais nada muito obri- 
gado pelos elogios que deixou toda equipe alegre 
por ter satisfeito seus problemas e tambem por 
diverti-lo, quanto as dicas a video-game sugerimos 
a revista "SOFT+HARD" desta mesma editora. 
E para voce que estS aprendendo, nesta edigao 
estamos langando uma segac com programas expli- 
cados linha por linha, justamente para auxiliar 
ainda mais aos iniciantes como voce. Continue 
conosco, e estamos a disposigao sempre que Ihe 
surgir algum problema ou duvida. 



Carissimo Redator, 

Acabei de ter a ultima linha da revista "SO PRO- 
GRAMAS". GENIAL!!! Todos os usuarios de mi- 
crocomputadores devem estar felicissitnos com 
essa publicapao. As revistas com programas que 
conhepo, nao oferecem a diver si ficapao de "SO 
PROGRAMAS". 

Achei falta, no entanto, de programas para o 
APPLE, apesar de este nao ser o meu caso, mas 
possuo urn amigo que o tern. Espero que supram 
essa deficiencia que, do meu ver, e a unica. 

Querendo acrcsccntar do louvavcl trabalho de 
voces, pepo que pub/iquem programas com suas 
linhas exp/icadas, pois isso me ajudaria a desen- 
volver o meu aprendizado. Gostaria se possivel 
que me explicassem a linha 6 do programa "NHA- 
KUS", a unica coisa que sei 4 que 4 urn cddigo de 
m&quina, mas gostaria de saber qua! a sua funpao. 

Sem rrais, espero que si gam ern f rente, cad a 
vez melhor. " 

Gi/berto de Souza Sampaio 

Av. Caetes, 158 - Perdizes 

Sao Paulo - SP 



Caro Gilberto, alegra-me estar contente com a 
revista, quanto a programas para a linha APPLE, 
como j3 havia dito antes, estamos trabalhando no 
caso, e tenho certeza que a supriremos nos proxi- 
mos numeros, sobre o programa com suas linhas 
explicadas, para sua felicidade a partir desta edipao 
j£ lanpamos a sepao APRENDA NA PRATICA, 
que justamente explica linha por linha de um pro- 
grama, que gradativamente acrescentaremos novos 
incrementos, para realmente ampliar o aprendizado 
dos leitores em desenvolvimento. A linha 6 POKE 
16418,0, apesar de neste numefo estar explicada 
na sepao APRENDA NA PRATICA, irei repetir 
aqui tambem. Quando voce liga o computador este 
enderepo (16418) estar£ carregado com 2, esse 6 o 
enderepo das linhas inferiores na tela, nas quais 
digitamos o programa, ao se carregar este enderepo 
com 0 iremos desta forma liberar as duas ultimas 
linhas para serem usadas no programa, assim tere- 
mos agora um total de 24 linhas na tela. 

Muito obrigado mais uma vez, e se tiver mais 
duvidas escreva-nos que as esclareceremos. 






"Nao sou nenhum viciado em cartas, mas ado- 
rei jogar com rneu micro o jogo V/NTE E UM, 
rea/men te esta d uma publicagSo genial que pre- 
encheu o que faltava no mercado, principa/mente 
por encontrar a revista no jornaieiro da esquina de 
casa, o que evita v£rios empecilhos. Gostaria de 
assinar a revista , por isso pego informagoes sobre 
Como fazer. Gostaria tambim que fossem feitos 
os outros programas para o meu tipo de compu- 
tador, pois fiquei curioso em saber como eram os 
outros programas, principalmente o "QUALQUER 
CO ISA". 

Meus parabdns pe/a exce/ente revista, continuem 
assirn. " 

Josd de Araujo Lima 

Rua Siqueira Bueno, 117— Pari 

Sao Paulo — SP 

£ isso af, Jos6, nao seja nenhum viciado em car- 
tas (mas com seu micro pode n6). Sobre as assina- 
turas ainda nao conclufmos as instalagoes de nosso 
departamento de assinaturas, mas nao se preocupe 
tSo logo estejamos aptos a atende-lo e tamb6m a 
outros leitores que nos tern enviado cartas, comuni- 
caremos. Quanto as tradugoes de programas, 
estamos elaborando um esquema sobre’esse aspec- 
to. Muito obrigado e continue com a gente. 

"Prezados amigos, 

Gostaria de parabeniza-los por esta publicagao 
que real men te fa/tava, principalmente sobre o as- 
pec to de serem vendidas nas banc as de jornais, pois 
antes desta publicapao, a unica coisa que havia no 
genero eram livros que possuem uma certa quanti- 
dade de programas, mas de custo alto e raros, pois 
s6 se encontram em a/gumas livrarias do Centro de 
Sao Paulo. Realmente fico contente com tal publi- 
co;So, pois significa um avango na area de infor- 
ms tica no Pais, por outro /ado notei a falta de pro- 
gramas para a I inha APPLE, o qua! possuo um. 
Acredito que nos prdximos numeros serao lan;a- 
dos programas para essa linha, pe/o menos e o que 
espero, por outro I ado tambem recon hep o que 6 
um compu tad or que poucas pessoas possuem pelo 
seu custo ser alto. Gostaria alem de que publicassem 
programas para tal linha criassem uma segao de 
programas dos leitores criando assirn um tipo de 
intercambio de programas, o que ajudaria a suprir 
cssa dificu/dade de occsso a programas de compu - 
tadores de alto custo, e logico, contando com a 
minha cotaboragao dentro do que sei com progra- 
mas desenvo/vidos por mim, e tambem com a co- 
laboragSo de outros leitores. 
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DIGIKIT * DIGIKIT * DIGIKIT 



SEGUINDO A IINHA E A FILOSOFIA COMERCIAL DA EDITORA FITTIPALDI DE, SEM 
PRE COLOCAR AO ALCANCE DOS LEITORES O MATERIAL SUFICIENTE PARA QUE SE 
POSSA COMPROVAR. ESTUDAR E ATE MESMOTIRAR PROVEITO DE FORMA DEFINITIVA 
DAS MATERIAS CONTIDAS NAS REVISTAS. A REVISTA &OTC + AAFlDLANQA NESTA 
EDIQAO DOIS SENSACIONAIS KITS PARA MONTAR, KITS ESTES. QUE SERAO OS PRIMEI 
ROS DE UMA GRANDE LINHA PRETENDIDA PELA DIRECAO DA EMPRESA E QUE. DE 
CERTO MODO VAO AGRADAR A MAIORIA DOS AMIGOS LEITORES. 

OS KITS SERAO SEMPRE COMERCIALIZADOS A PREQO COMPATlVEL COM A REALI- 
DADE COMERCIAL DA PRAQA, E, VENOIDOS POR MEIO DE REEMDOLSO POSTAL PELA: 
DIGIKIT COME RCIO E EXPORTAQAO DE COMPONENTES E LET RON / COS L TDA., QUE E UMA 
EMPRESA DO GRUPO FITTIPALDI . PORTANTO COM IDONEIDADE COMPROVADA. 

MAO PERCA TEMPO. PREENCHA O CUPOM E FAQA O SEU PEDIDO HOJE MESMO. 



AV. AMADOR 
BUENO DA 
VEIGA, 4.176 
-CEP 03652 - 
SAO PAULO 



SIM. DESEJO RECEBER PELO REEMBOLSO POSTAL O KIT 
PELO QUAL PAGAREI A QUANTIA DE Cr$ 



MAIS DESPESAS POSTAIS. 



NOME 

ENDEREQO 



CIDADE 



BAIRRO 



NO do R. G. 



SUPER FONTE M**; * AfcftD 

PROJETADO ESPECIALMENTE PARA RESOLVER OS PROBLEMAS DE ALIMENT AQAO DO 
. SEU MICRO OU VIDEO GAME DE QUALQUER MARCA. Cr $ 36.000.00 

TAP EL OA DER *— 

INCRIVEL SOLUgAO PARA GRAVAQAO E 
REPRODUgAO DE PROGRAMAS EM FITA 
CASSETE PERMITINDO PASSAGEM DE FITA 
PARA FITA. MESMO EM PROGRAMAS FECHA 
DOS. Cr$ 15-500.00 



Mais uma vez gostaria de parabeniz&los e felici- 
ta/os para que tenham sucesso c prosperidade. " 
Henrique Bergue dos Santos 
Rua Ga/vea Peixoto, 173 — Santo Arnaro 
Sao Paulo - SP 



Caro amigo Henrique, muito obrigado por nos 
dedicar um passo ao avango da informitica no 
Brasil. Como j4 frisamos antes, nos proximos nu- 
meros publicaremos programas para a linha APPLE, 
quanto a ideia de intercambio de programas e oti- 
ma, as nossas portas estao abertas, ou melhor, nos- 
sas paginas estao abertas para tal ideia, mas tudo 
depende dos amigos leitores, de qualquer forma 
esperamos sua colaboragao com seus programas, 
acreditamos que outros leitores tambem irao cola- 
borar, os quais publicaremos com todo carinho. 



O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 





Neste jogo seu objetivo e acer- 
tar 12 alvos moveis no topo da 
tela, mas com tempo limitado, 
pois a cada tiro que der ira cres 
cer uma barreira da esquerda pa- 
ra a direita, a qua I voce nao po- 
dera acertar, caso contr£rio per- 
der3, da mesma forma perderS, se 
a barreira atingir o canto direito 
da tela. Os alvos devem ser alveja- 
dos no local exato, caso contrd- 
rio ele poderS se apagar. Cada vez 
que acertar urn alvo aparecerS 
urn cifrao na direqao em que ele 
foi pego, que piscara no momen- 
to do acerto. Voce pode acertar 
alvos no mesmo local em que ja 
tinha sido pego um outro alvo. 
Seus controles sao: 

"5" (ESQUERDA) 

”8” (DIREITA) 

”0" (TIRO) 



Para "rodar" este programa 6 
necessSrio, antes reservar um 
espapo no topo da memoria di- 
gitando o programa a seguir: 



10 LET E = PEEK 16388+256- 
PEEK 16389 
20 LET E = E-100 
30 POKE 16388, E-256*INT (E/ 
256) 

40 POKE 16389,1 NT (E/256) 

50 NEW 



Apos rodar o programa acima 
digite o programa principal que 
vem a seguir. 
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10 POKE 30000,42 

11 POKE 30001,12 

12 POKE 30002,64 

13 POKE 30003,1 

14 POKE 30004,1 

15 POKE 30005,0 

16 POKE 30006,9 

17 POKE 30007,229 

18 POKE 30008,6 

19 POKE 30009,31 

20 POKE 30010,126 

21 POKE 3001 1,35 

22 POKE 30012,86 

23 POKE 30013,119 

24 POKE 30014,122 

25 POKE 30015,16 

26 POKE 30016,250 

27 POKE 30017,193 

28 POKE 30018,2 

29 POKE 30019,35 



30 POKE 30020,35 

31 POKE 30021,32 

32 POKE 30022,239 

33 POKE 30023,201 
100 LET A$=" 



110 PRINT A$ 

120 PRINT"(32 grafico shift Q)" 
130 LET X=21 
140 LET Y=13 



150 LET A=21 

160 LET PO=0 

170 LET W=0 

200 RAND USR 30000 

210 LETA-20 

215 PRINT AT X,Y;" H " 

220 LET Y=Y+(INKEY$=”8")- (INKEY$="5") 

230 IF Y < 0 THEN LET Y=0 

240 IF Y >29 THEN LETY=29 

250 IF INKEY$="0" THEN GOSUB 450 

400 GOTO 200 

450 LET W=W+1 

460 IF W=30 THEN GOTO 850 

500 RAND USR 30000 

501 LET A=A-4 

510 IF A <0 THEN PRINT AT A,W;CHR$ 128 

515 IF A <0 THEN RETURN 

520 PRINT AT A,Y+1;"*' ;AT A,Y+1;" " 

530 PRINT AT A-4,Y+1 ; 

550 IF PEEK (PEEK 16398+256-PEEK 16399)=137 THEN GOTO 700 
560 IF PEEK (PEEK 16398+ 256*PEEK 16399)=128 THEN GOTO 900 
600 GOTO 500 
700 LET PO=PO+1 

720 PRINT AT A-1,Y+1;"$" (Inverso) 
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C’po raaiMico oomtdo. 
ww'uoio. m«ypo»a>. I« 
H. M. pr*l<o. do 
«om 13 Vah, c.a. 



CrS 17.000,00 



10 . 000,00 



da l<anya 



721 PRINT AT A-1,Y+1;"$" 

722 PRINT AT 20,2;" ACE RTOS : ";P 

723 IF P0=12 THEN GOTO 800 

725 PRINT AT A,W;CHR$ 128 

726 PRINT AT 1,0;"(32 grafico shift A)" 

727 PRINT AT 1,0;" (32 grafico shift W)" 

730 RETURN 

800 PRINT AT 11,4;"V0CE MATOU NAMOSCA" 
810 PRINT AT 1,0;" (32 grafico shift A)" 

820 PRINT AT 1,0;" (32 grafico shift W)" 

830 GOTO 810 

850 PRINT AT 4,W;CHR$ 128 

851 PRINT AT 11,5;"A BARREIRASE FECHOU" 
860 STOP 

900 PRINT AT 1 1,4;"V0CE BATEU NA BARREIRA" 
910 FOR F=0TO 25 
920 NEXT F 

930 PRINT AT 12,8;"TENTE NOVAMENTE" 

940 FOR F=0TO 25 
950 NEXT F 
955 CLS 
960 RUN 



COat e 'tun com faciodadc tudoour 
f dtfCII. omit •> mfcn nio ali-oyam 
<**'■• J. ayoino.idaxl Ur giuiUf uU 
hOttlr no r*no flm»»«irOnlio 

Cr$ 5500,00 



PtDIPOS PtlO REEMBOLSO PBSTA1 



NAO ESTAOINCLUIOAS NOS PREQOS AS OESPESAS DE PORTE E EMBALA3EM 



A LI CATE - PINQA 
V 3? Mflo 
X. CrS5.000,00 



-V 3r Mfli 

V, 
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Neste programa voce na pri- 
meira etapa se encontrar£ no la- 
birinto das surpresas, no qual 
existem portas e muros. Nas por- 
tas 6 que se encontram as surpre- 
sas, que podem ser: 

1. Correr num F. 1. 

2. Esquiar na neve. 

3. Lutar contra os E. T. 

4. Ganhar bonus. 

5. Passar para outro labirinto 
mais repleto de portas e mu- 
ros. 

Caso voce bater num muro 
perderS bonus. Ao entrar numa 
porta a qua! o levari as corridas 
de F. 1, voce dever4 escolher um 
carro de 1 a 6 que ser3 seu carro 
na corrida, e torpa para que ele 
nao quebre. Se por um acaso es- 
ta porta o levar para esquiar na 



neve, a unica coisa que deve fa- 
zer e desviar das Srvores (que sao 
simbolizadas por espapos inver- 
sos) por um certo tempo. Se essa 
mesma porta o levar para lutar 
contra os E. T., devera evitar 
que uma nave que vem descendo 
na tela atinja o solo, para isso vo- 
ce possui um canhao movel que 
langa projeteis quando assim o 
quiser. Caso entre numa porta 
que Ihe de bonus, simplesmente 
esse bonus ser£ acrescentado ao 
seu bonus geral sem alterar qual- 
quer coisa, e por ultimo, entrar 
numa porta que o leve a outro la- 
birinto, este se encontrar^ mais 
repleto de portas e muros, tam- 
b§m sem alterar qualquer outra 
coisa. 

No labirinto voce se movimen- 
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tar6 sozinho da esquerda para a 
direita, e quando atingir o lado 
direito, voltarS ao lado esquerdo. 
Seus unicos controles sao o "6" 
(para baixo) e o "7" (para cima). 

Ja numa corrida de F. 1 ape- 
nas ter3 que escolher um carro. 

Para esquiar na neve voce pos- 
sui os controles: ”5'' (esquerda) e 



5 RAND 

30 POKE 16418,0 
40 LET PO-0 
50 FAST 

100 FOR F=1 TO 65 
200 LET Y=INT (RND*22) 

300 LET X=INT (RND*32) 

400 PRINT AT Y,X;CHR$ 137 

500 NEXT F 

510 FOR F=1 TO 15 

520 LET Y=INT (RND-22) 

530 LET X=INT (RND*32) 

540 PRINT AT Y,X;CHR$ 143 
550 NEXT F 
600 SLOW 

610 PRINT AT 22,20;"BONUS: ";PO 
700 LET A=1 1 
800 LET B=0 

900 PRINT AT A,B;"A ,, ;AT A,B;" " 

901 IF PO< = -200THEN GOTO 3900 

902 IF A <0 THEN LET A=0 

904 IF A >21 THEN LET A= 21 

905 IF PO>= 2500 THEN GOTO 6000 

910 LET A=A+ (INKEY$-"6") -(INKE Y$-"7") 

920 LET B=B+1 
930 PRINT AT A,B; 

940 LET P=PEEK 16398+256* PEEK 16399 

950 IF PEEK P=137 THEN GOSUB 2000 

955 IF PEEK P=143 THEN GOTO 3000 
960 IF B=31 THEN LET B=0 
965 GOTO 900 

2000 PRINT AT 22,6;"VOCE BATEU NUM MURO" 
2005 LET PO=PO-10 
2010 FOR F-0 TO 25 
2020 NEXT F 

2025 PRINT AT 22,26;"(cinco espacos)" 

2030 PRINT AT 22, 6 J' E PERDEU BONUS: " PO 

2040 FOR F=0 TO 25 
2050 NEXT F 

2055 PRINT AT 22,7;" (12 espacos) BONUS: " 

2060 RETURN 

3000 POKE 16418,0 

3010 LET 0=INT (RND*4)+1 



"8" (direita). 

Para lutar contra os E. T. seus 
controles sao: "5" (esquerda), 
"8" (direita) e "0" (tiro). 

Seu objetivo maior e fazer 
2500 pontos, caso ultrapasse a 
-200 perdera. 

BOA SORTE. E cuidado com 
as surpresas. 
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3020 IF 0=0 THEN GOSUB 3700 

3030 IF 0=1 THEN GOTO 3500 

3040 IF 0=2 THEN GOTO 4000 

3050 IF 0=3 THEN GOTO 50 

3060 IF 0=4 THEN GOTO 5000 

3065 GOTO 900 

3500 CLS 

3510 POKE 15418.2 

3520 FOR F=0 TO 21 

3530 PRINT "(32 modo grafico shift D)" 

3540 NEXT F 

3550 PRINT AT 11,0;" AGORA VOCE I R A COR RE R NUM F. I ; " (em inverso) 
3560 PRINT AT 12,0;" ESCOLHASEU CARRO: 1-2-3- 4-5-6 " 

3565 FOR F=0 TO 25 

3566 NEXT F 
3580 CLS 

3582 FOR F=2 TO 21 

3584 PRINT AT F,0;"(24 modo grafico shift A) (1 modo grafico shift T) (7 espacos 
em inverso) 

3586 NEXT F 
3590 DIM A (6) 

3595 PRINT AT 0,0;" 1: L A R G A D A BONUS: (+/-) " (inverso) 

3600 RAND 

3610 INPUT B 

3615 LET T=INT (RND"6)+1 

3620 FOR F=T TO 6 

3630 PRINT AT F*3+3,A(F);" (1 espaco inverso)";CHR$ (F+28) 

3640 LET A(F)=A(F)+INT (RND*4) 

3645 IF A(B)=A(F) AND A(F) >= 25 THEN GOTO 5500 

3650 IF A(F)>= 25 THEN GOTO 3800 

3660 NEXT F 

3680 LET T=1 

3690 GOTO 3620 

3700 LET PO=PO+100 

3710 PRINT AT 22,19; "BONUS: ";P0 

3720 RETURN 

3800 CLS 

3810 LET PO=PO-50 

3815 PRINT AT 10,1 ;"0 CAR RO VENCEDOR FOI 0 NUMERO";F 
3820 PRINT AT 11,0;"VOCE PERDEU A CORRIDA E BONUS DE:" 

3830 PRINT AT 12,10;PO 

3832 FOR F=0 TO 25 

3833 NEXT F 
3835 POKE 16418,0 
3837 CLS 

3840 GOTO 50 
3900 POKE 16418,2 
3910 CLS 

3920 PRINT AT 11,1;"V0CE PERDEU. ULTRAPASSOU A -200" 

3930 FOR F=0 TO 25 
3940 NEXT F 
3950 CLS 

3960 PRINT AT 11,1 :"DESEJA JOGAR NOVAMENTE (S/N) V 
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3970 INPUT A$ 

3980 IF A$="S" THEN GOTO 3987 
3985 IF A$="N"THEN STOP 

3987 CLS 

3988 RUN 

4000 CLS 

4001 PRINT AT 11,0;” AGORA VOCE LUTARA CONTRA OS E.T." 
4005 PRINT AT 1 2,6;"AGUARDE UM INSTANTE." 

4010 FOR F=0 TO 25 
4020 NEXT F 

4100 CLS 

4101 LET X=21 

4110 LET Y=14 

4111 LET S-INT (RND*21) 

4115 FAST 

4120 FOR F=0 TO 703 
4130 PRINT CHR$ 128; 

4140 NEXT F 

4150 SLOW 

4160 FOR Q=0 TO 21 

4165 LET S=S+INT (RND # 3)-1 

4166 PRINT AT Q,S;" ";ATQ,S;" 

4169 PRINT AT X,Y;" A " 

4190 IF Y <0 THEN LET Y=0 

4192 IF Y> 29 THEN LET Y= 29 

4200 LETY=Y+(INKEY$="8")-(INKEY$="5") 

4210 IF INKEY$="0" THEN GOTO 4400 
4220 NEXT Q 

4400 FOR E=21 TO Q STEP-1 

4410 PRINT AT E,Y;" AT E,Y;" 

4420 IF E=Q AND Y=S THEN GOTO 4470 
4430 NEXT E 
4435 CLS 

4440 LET PO=PO-50 

4450 PRINT AT 11,0;"VOCE ERROU E SEU BONUS E: "PO 

4455 FOR F=0 TO 25 

4456 NEXT F 

4457 CLS 

4458 POKE 16418,0 
4460 GOTO 50 

4470 LET PO=PO+100 
4475 CLS 

4480 PRINT AT 11,0;"PARABENS.SEU BONUS E DE PO 

4482 FOR F=0 TO 25 

4484 NEXT F 

4486 CLS 

4490 GOTO 50 

5000 CLS 

5005 POKE 16418,2 

5010 PRINT AT 11,0;" AGORA VOCE VAI ESQUIAR NA NEVE" 

5011 FOR F=0 TO 25 

5012 NEXT F 
5015 CLS 
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DIM H$(6,24) 

LET X=11 

LET Y-12 , ! , m | j | ^ ^ M m | ■ 

LET H$(2)=" fl 1 I I ■ ■ | ■ VI ■ I ■ | •• 

LET H$(4K !!!■■■ I | | ■ | 1 | ■ j - 

LET H$(6)=" 1 1 ™ 1 B 1 1 ™ 1 ™ 1 1 1 

FOR J=0 TO 30 

LET S=INT (RND*6)+1 

SCROLL 

PRINT AT 21,3;H$(S) 

PRINT AT X, Y;"A” 

IF Y <2 THEN LET Y=2 

IF Y> 27 THEN LET Y=27 

LET Y=Y+(INKEY$-"8"} -(INKEY$="5") 

PRINT AT X+1,Y: 

LET P=PEEK 16398+256* PEEK 16399 
IF PEEK P=128 THEN GOTO 5450 
NEXT J 

LET PO=PO+100 

PRINT AT 11, 0;"PARABENS;VOCE AGORA TEM ";PO 
FOR F=0 TO 40 
NEXT F 
CLS 

POKE 16418,0 
GOTO 50 
CLS 

LET PO=PO-50 

PRINT AT 11,1;"VOCE CAIU E PERDEU;BONUS: ";PO 

FOR F=0 TO 25 
NEXT F 
CLS 

POKE 16418,0 
GOTO 50 
LET PO=PO+100 
CLS 

PRINT AT 1 1,5;"PARA BENS VOCE VENCEU." 

PRINT AT 12,9;"BONUS: ";PO 

FOR F=0 TO 25 
NEXT F 
CLS 

POKE 16418,0 
GOTO 50 
POKE 16418,2 

PRINT AT 1 1,0;"PARA BENS. VOCE CUMPRIU A MISSAO.’ 
STOP 
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Agora voce sera um autentico 
corredor de Formula 1. Neste jo- 
go voce passara por tuneis, obs- 
taculos, etc. 

Ele possui quatro fases: na pri- 
meira voce ter^ que percorrer 
1 00 km numa pista sem obstcicu- 
los; na segunda teri que percor- 
rer 100 km num tunel; na tercei- 
ra enfrentara obst^culos e final- 
mente na quarta enfrentara obs- 



taculos num tunel e por final a 
reta de chegada. Cuidado para 
n3o sair da pista, caso contrSrio 
ira bater no GUARD-RAIL e sair 
da prova. 

Seus controles sao: 

"5" (ESQUERDA) 

"8" (DIRE ITA) 

BOA SORTE (quem sabe se 
da f nao saira outro Nelson Pi- 
quet). 
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3 FOR F=0 TO 20 

4 PRINT AT F f 1 1;"(espaco inverso) (7 grafico shift H) (1 espaco inverso)" 

5 NEXT F 

6 PRINT AT21,12;"(1 espaco inverso) (5 grafico shift H) <1 espaco inverso)";AT 
1 1,12;" (7 grafico shift T)" 

7 PRINT AT 1 1,0;"LARGADA:" 

8 PRINT AT 10,15;"H" 

9 FOR F=9TO0 STEP-1 

10 PRINT AT 1 1 f 9;F 

11 NEXT F 
15 LET B=100 
20 LET A=1 
30 LET C=10 
50 LET W=15 
60 LET N=15 
70 LET E= 1 3 
80 LET P=1 
85 LET J=15 
90 SCROLL 

95 LET B=B-1 

96 IF B < 1 THEN GOTO 300 

100 PRINT TAB E;"(1 espaco inverso) (3 grafico shift H) (1 espaco inverso)" 

101 IF B/25=INT (B/25) THEN PRINT AT 21,0;"TUNEL:" J B 
110 LET E=E+RND*2’(NOT E > 18)-RND"2* (NOT E < 6) 

120 PRINT AT C-1,N;"(1 grafico shift A)" 

130 PRINT AT C,W;"H" 

140 PRINT AT C+1,W; 

150 IF PEEK (PEEK 16398+ 256*PEEK 16399)=128 THEN GOTO 200 
160 LET N=W 
170 LET P=P+1 

180 LET W=W+(INKE$="8")- (INKEY$="5") 

190 GOTO 90 

210 PRINT AT 14,3;"VOCE BATEU NO GUARD RAI L" 

220 FOR F=0 TO 25 
230 NEXT F 
240 CLS 

250 PRINT AT 11,8;"TENTE NOVAMENTE" 

252 PRINT AT 12,6;"VOCE PERCORREU: ";P KM." 

260 FOR F=0 TO 25 
270 NEXT F 
280 CLS 
290 RUN 
300 LET B=B+1 

305 IF B> 100THEN GOTO 410 

310 PRINT TAB E;"(1 grafico shift A) (3 espacos inverso) (1 grafico shift A)" 

320 LET E-E+RND*2*(NOT E > 18)-RND*2*(NOT E >6) 

330 PRINT AT C-1,N;"(1 espaco inverso)" 

340 PRINT AT C,W;"H'' (inverso) 

350 PRINT AT C+1,W; 

360 IF PEEK (PEEK 16398+ 256* PEEK 16399)=8 THEN GOTO 200 
370 LET N=W 
380 LET P=P+1 

390 LET W=W+(INKEY$="8")- (INKEY$="5") 
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395 SCROLL 
400 GOTO 300 
410 LET B=21 
420 SCROLL 

425 LET B=B-1 

426 IF B<1 THEN GOTO 445 
430 PRINT AT C-1,N;" " 

435 PRINT AT C,W;"H" 

436 LET W=W+(INKEY$="8")- (INKEY$="5") 

437 LET N=W 

438 PRINT TAB 2;" (28 espacos)" 

440 GOTO 420 

445 LET B=100 

450 LET B=B-1 

460 IF B < 1 THEN GOTO 600 

470 SCROLL 

480 PRINT TAB 13;"(1 espaco inverso) (5 grafico shift H) (1 espaco inverso)" 
490 PRINT AT 21,J;"A" 

495 IF B/25=INT (B/25) THEN PRINT AT 21,0;"TUNEL:"; B 
500 LET J=J+RND*3*(NOT J > 18)-RND*3*(NOT J< 14) 

510 PRINT AT C-1,N;"(1 grafico shift H)" 

520 PRINT AT C,W;"H" 

530 PRINT AT C+1.W; 

540 IF PEEK (PEEK 16398+ 256*PEEK 16399)=128 THEN GOTO 200 
550 IF PEEK (PEEK 16398+ 256*PEEK 16399)=38 THEN GOTO 750 
560 LET N=W 
570 LET P=P+1 

580 LET W=W+(INKEY$="8")-(INKEY$="5") 

595 GOTO 450 
600 LET B=B+1 

610 IF B <100THEN GOTO 850 

620 PRINT TAB 13;" (1 grafico shift A) (5 espacos inverso) (1 grafico shift A)" 
630 PRINT AT 21,J;"A" (inverso) 

640 LET J=J+RND*3*(NOT J > 18)-RND*3*(NOT J < 14) 

650 PRINT AT C-1,N:"(1 espaco inverso)" 

660 PRINT AT C,W;"H" (inverso) 

670 PRINT AT C+1,W; 

680 IF PEEK (PEEK 16398+256-PEEK 16399)=8 THEN GOTO 200 
690 IF PEEK (PEEK 16398+ 256* PEEK 16399)=166 THEN GOTO 750 
700 LET N=W 
710 LET P=P+1 

720 LET W=W+(INKEY$="8")- (INKE Y$="5") 

725 SCROLL 
730 GOTO 600 

750 PRINT AT 11,0;"VOCE BATEU. E PERCORREU: ";P 

760 STOP 
850 LET B=B-1 

870 IF B <80 THEN GOTO 1000 

880 PRINTTAB 13;"(1 espaco inverso) (5 grafico shift A) (1 espaco inverso)" 
890 PRINT AT C-1,N;" (1 grafico shift H)" 

900 PRINT AT C,W;"H" 

920 LET N“W 
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930 LET P-P+1 

950 LET W=W+ (INKEY$="8")-(INKEY$="5") 

955 SCROLL 
960 GOTO 850 

1010 PRINT TAB 13;"(1 espaco inverso) (5 grafico shift T) (1 espaco in verso) 
1020 PRINT AT C-1,N;" d grafico shift H)" 

1030 PRINT AT C,W;"H" 

1040 PRINT AT C+1,W; 

1050 IF PEEK (PEEK 16398+ 256* PEEK 16399)=6 THEN GOTO 1200 

1060 LET N=W 

1070 LET P=P+1 

1075 SCROLL 

1080 GOTO 1020 

1200 PRINT AT 14,1 ;"PARABENS. VOCE E O VENCEDOR." 

1210 PRINT AT 15,4;"VOCE PERCORREU: ";P;" KM." 

1220 STOP 
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Este jogo o levari para as mu- 
ralhas da China. La voce terS que 
derrubar essa mural ha, isso na 
primeira etapa, pois, apos ter ul- 
trapassado a muralha terS que pe- 
gar quatro senhas em lugares di- 
ferentes no meio de urn campo 
de concentrapao sendo bombar- 
deado. Para eliminar a muralha 
voce ter3 urn tempo limitado, de* 
pois para pegar as senhas devera 



tomar cuidado com os buracos e 
tambSm com as bombas que 
caem no campo. 

"BOA CHORTE NE" 

Seus controles sao os mesmos 
do joystick. 

"5" (ESQUERDA) 

"8" (DIREITA) 

"6" (PARA BAIXO) 

"7" (PARACIMA) 

"0” (TIRO) 
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7 POKE 16418,0 

8 RAND 
10 SLOW 

15 LET A=0 

16 LET U=30 
20 LET K-1 
30 LET 1=0 
40 LET B=27 
50 LET Y=0 
60 LET X=14 
62 LET W=0 

65 LET S=0 

66 FOR F=1 TO 30 

70 LET S=INT (RND*20) 

80 LET W=INT (RND*30) 

92 PRINT AT S,W;CHR$ 8 

94 NEXT F 

95 FOR F“2 TO 20 

96 PRINT AT 0,F;CHR$ 128 

97 PRINT AT2,F;CHR$ 128 

98 NEXT F 

100 FOR F=0 TO 20 

110 PRINT AT F,30;CHR$ 5 

115 PRINT AT F,27;CHR$ 128 

120 NEXT F 

150 GOTO 300 

200 LET Y=l 

202 PRINT AT K,Y+1;">"; AT K,Y-1;" " 

204 IF Y>30THEN RETURN 
206 LET Y=Y+3 
210 PRINT AT K,Y; 

220 LET P=PEEK 16398+256- PEEK 16399 
260 IF PEEK P=8 THEN GOTO 280 
265 IF PEEK P=128 THEN GOTO 1000 
267 IF PEEK P=5 THEN RETURN 
270 GOTO 201 
280 LET U=U-1 
285 PRINT AT K,Y;" 

300 LET 1=0 

305 IF U < 10 AND U >8 THEN PRINT AT 22,9; " 
310 PRINT AT 22,16)'ELIMINADOS:";A 
315 PRINT AT 22,2;"TEMPO: ";U 

350 FOR L=0 TO U 

355 LETS=INT (RND*20)+1 

356 LETW=INT (RND*26) 

360 PRINT AT K, I AT K-1,l;" ";AT K+1,l;" " 
380 LET K=K+(INKEY$="6") -(INKEY$="7") 

385 PRINT ATS,W;CHR$8 

390 IF K < 1 THEN LET K=1 

400 IF K> 20 THEN LET K= 20 

410 IF INKEY$="0'' THEN GOSUB 200 

500 NEXT L 

510 LET U=U-1 

520 PRINT AT 22, 9;U 
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545 IF U=0 THEN GOTO 600 
550 GOTO 350 
600 CLS 

610 PRINT ATI 1,7;"SEU TEMPO ACABOU" 

620 STOP 

1001 PRINT AT K,B;":" 

1010 LET A=A+1 

1020 IF A=19 THEN GOTO 1200 

1100 RETURN 

1200 CLS 

1210 POKE 16418,0 

1220 PRINT AT 1 1,2;"PARABENS; E LIMINOU O MURO" 



1230 DIM A$(5,30) 

1240 let A$n )=" r~i~T~rn~B n ■ itt i ■ u ■ 1 1 1 r 
1250 let a $(?)="□:■ 1 1 ■ i ■ 1 1 1 \ 'Lwm n ■ i ■ 1 r 
1260 let AS iSK-GXBXl'JrLIMTrjniT I-f 1 ■ I I ■ 1 1 " 



1270 LET A$(4)=" 




a 



1280 LET A$(5)=" 



1290 FOR F=0 TO 21 
1300 LET C=INT (RND*5)+1 
1310 PRINT AT F,0;A$(C) 

1320 NEXT F 

1321 FOR F=0 TO 6 

1322 PRINT AT INT (RND*19) +1,INT (RND*28)+1; CHRS8 

1323 NEXT F 

1330 LET K= 11 

1331 LET 1=0 



1332 LET A=0 

1336 PRINT AT K,I;"=";AT K,l;" " 

1338 PRINT AT INT (RND*19) +1,INT {RND*28)+1; CHR$ 23 

1340 IF INKEY$="6" THEN LET K-K+1 

1345 IF INKEY$="7" THEN LET K=K-1 

1350 IF INKEY$="8" THEN LET 1=1+1 

1355 IF INKEYS="5" THEN LET 1=1-1 



1360 IF K < 0THEN LET K=0 



1370 IF K> 21 THEN LET K-21 



1380 IF I <0 THEN LET 1=0 
1390 IF I >30 THEN LET 1=30 
1400 PRINT AT K,l; 

1410 LET P=PEEK 16398+256* PEEK 16399 
1420 IF PEEK P=23 THEN GOTO 1500 
1425 IF PEEK P=128THEN GOTO 1571 
1428 IF PEEK P=8 THEN GOSUB 1450 
1430 GOTO 1336 

1450 LET A=A+1 

1451 POKE 16418,0 

1455 IF A=4 THEN GOTO 1600 
1460 PRINT AT 22,20; 1/ SENHA: ";A 
1470 RETURN 
1500 CLS 

1510 PRINT AT 11 , 2 ," VOCE FOI PEGO POR UMA BOMBA" 
1520 FOR F=0 TO 28 
1530 NEXT F 
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1540 PRINT AT 11,0;” TENTE NOVAMENTE ” 

1550 FOR F=0 TO 28 
1560 NEXT F 
1565 CLS 

1570 RUN 

1571 CLS 

1572 PRINT ATI 1,5;”VOCE CAIU NUM BURACO” 

1573 FOR F=0 TO 28 

1574 NEXT F 

1575 PRINT AT 11,5;” TENTE NOVAMENTE 

1576 FOR F=0 TO 28 

1577 NEXT F 

1578 CLS 

1579 RUN 

1600 PRINT AT 11, 1;”PARABENS. VOCE CUMPRIU A MISSAO." 
1610 STOP 











Esta segao tratara de explicar 
na pratica como elaborar um pro- 
grama, ou melhor, como enten- 
der os truques, fbrmulas matemd- 
ticas, etc. de um programa. Neste 
numero tratamos de um jogo de 
acao, o qual estudaremos linha 
por linha. Nele encontraremos 
movimentos, placar, o uso das te- 
clas num programa e outras coi- 
sas importantes. Logico, nao se 
trata de um jogo de extrema agao 
e dificuldade, mas nosso objetivo 
e levar gradativamente ao conhe 
cimento dos leitores, como ela- 
borar um programa, especial men- 
te aos principiantes. 



O jogo consiste dc uma nave 
amiga que no comego do jogo se 
encontra no centro abaixo na te- 
la, e uma nave inimiga que desce 
aleatoriamente pela tela, a qual 
voce deve evitar que atinja o so- 
lo, para evitar a nave inimiga vo- 
ce possui os tiros executados ca- 
da vez que a tecla 0 for pressio- 
nada. Sua nave se movimenta 
tanto para a esquerda como pa- 
ra a direita, usando as teclas B 

(esquerda) e 8 (direita). Digite- 

o e depois estude com calma, e 

atraves disso tente criar outros 
programas, ou mesmo incremen- 
tar mais este mesmo programa. 



10 POKE 16418,0 
20 LET X=21 
30 LET Y=14 
40 LET S=0 
45 LET PO=0 
50 FOR F=0 TO 21 

60 PRINT AT F,0;"(32 grafico shift A)" 

70 NEXT F 

80 FOR U=0 TO 21 

90 LET S=S+INT (RND*3) 

100 PRINT AT U,S;"<=>" (inverso) 

110 PRINT AT U,S;" (3 grafico shift A)" 

120 PRINT AT X,Y;"(1 grafico shift A) X (1 grafico shift A)" 
130 IF INKEY$=“8" THEN LET Y=Y+1 
140 IF INKEY$="5” THEN LET Y=Y-1 





150 


IF INKEY$="0" THEN GOTO 210 








160 


NEXT U 








170 


LET PO=PO-10 






o 


180 


IF PO=-50 THEN GOTO 320 






190 


PRINT AT 22,18;"PONTOS: ";PO 








200 


GOTO 80 






o 


210 


PRINT AT U,S;"< = >" (inverso) 






215 


FOR T=20 TO U STEP-1 








220 


PRINT AT T,Y;"(1 grafico shift A) 


Ml grafico shift A)" 


o 


230 


PRINT AT T,Y;''(3 grafico shift A) 


H 




240 


IFT=U AND Y=S THEN GOTO 270 






250 


NEXT T 






o 


260 


GOTO 170 






270 


LET PO=PO+10 








280 


IF PO < 1 AND PO >-1 THEN PRINT AT 22,26;" " 




290 


PRINT AT 22,18;"PONTOS: ";PO 




o 


300 


IF PO=100 THEN GOTO 340 






310 


GOTO 80 








320 


PRINT AT 11,0;"VOCE PERDEU. ULTRAPASSOU A-50." 


o 


330 


STOP 






340 


PRINT AT 11,0;"PARABENS. VOCE CUMPRIU SUA MISSAO" 


o 


350 


STOP 














o 




Coment£rios 




10 


Libera as duas linhas inferio- 


130 


Soma 1 a Y cada vez que a 








res. 




tecla 8 for pressionada, fa- 


o 


20 


Coordenada da linha da na- 




zendo com que a nave ami- 




ve amiga (X). 




ga se movimente para a di- 




30 


Coordenada da coluna da 




reita. 


o 




nave amiga (X). 


140 


Diminui 1 de Y cada vez 


40 


Coordenada da linha da na- 




que a tecla 5 for pressiona- 






ve inimiga que na linha 90 




da, fazendo com que a nave 


o 




ira variar entre 0 e 2. 




amiga se movimente para a 


45 


Vartevel dos pontos. 




esquerda. 




50 


ate 70 — Desenham a tela. 


150 


Leva ao looping de tiro cada 


o 


80 


Looping principal que per- 




vez que a tecla 0 for pressio- 




mitira animaipao na tela. 




nada. 


90 


Coordenada da linha da na- 


160 


Fecha o looping principal. 






ve inimiga ja em variapoes 


170 


Diminui 10 pontos no esco- 


o 




entre 0 e 2. 




re. 


100 


Imprime na linha U e colu- 


180 


Identifies quando o escore 






na S a nave inimiga. 




chegar a-50. a -50. 


o 


110 


Imprime na linha U e colu- 


190 


Imprime os pontos no canto 




na S o caracter da tela apa- 




direito inferior da tela. 






gando a nave inimiga, para 


200 


Retorna ao looping princi- 






evitar que a nave fique im- 




pal. 


o 




pressa permanentemente 


210 


Imprime a nave inimiga 




dentro do looping. 




apos o tiro, caso esta linha 




120 


Imprime na linha X e colu- 




nao existisse, apos o tiro a 


r\ 




na Y a nave amiga. 




nave nao apareceria na tela. 



o 

o 

o 

o 

o 

o 



215 Looping de tiro. 

220 Imprime na linha T ecoluna 
Y o tiro representado pelo 
asterisco. 

230 Apaga a impressao do tiro. 

240 Define que quando a linha 
T for igual a linha U e a co- 
luna Y for igual a coluna S 
saltara para a linha 270 

250 Fecha looping de tiro. 

260 Salta para as linhas de dimi- 
nuigao de pontos caso errar 
o tiro. 

270 Soma 10 pontos ao escore. 

280 Quando o placar atingir 0 
ir3 imprimir tres espagos no 
local dos pontos, caso con- 



tr4rio, quando o placar esti- 
ver negativo ira imprimir 
um sinal negativo, que quan- 
do voltar a ser positivo dei- 
xara na tela um 0 indeseja- 
vel. 

290 Imprime o novo escore. 

300 Define que quando o placar 
atingir a 100 pontos saltarS 
para a linha 340. 

310 Retorna ao looping princi- 
pal. 

320 Executada quando PO=-50 
definida pela linha 180. 

340 Executada quando PO=100 
definida pela linha 300. 



O 

O 

o 

o 

o 






Este programa do SELETOR e 


"SELETOR/BAS" 


so para ser usado no "BASIC 


Este programa e uma adapta- 


DISCO". Ele e feito para ler os 


pao de um anterior, escrito em 


programas do diretdrio do disco 


junho/83 por Pierre Benassi, 


e dispo-los numerados ordenada- 


mas as adaptapQes foram tantas 


mente, assim, o usuSrio deste 


que se ele o visse agora, prova- 


programa poder£ selecionar uma 


velmente nao o reconheceria. 


oppSo e este sera chamado auto- 


Para programas compilados 


maticamente. Possui, porem, cer- 


que necessitam de outro para 


tas restripoes: 1) So podera ser 


rod£-los, apenas e necess^rio 


usado no operacional "NEW- 


acrescentar as linhas: 


DOS"; 2)Todos os programas de- 




ver§o estar divididos apenas em 


494 N$= "NOME DO PROGRA- 


"/BAS" ou "?CND" e e obriga- 


MA QUE EXECUTA 0 


torio o uso de uma destas duas 


PROGRAMA OBJETO" 


especificapQes para o nome do 


495 IF AE$(A)= "COM" THEN 


programa; 3) Como o seletor 


M$="9"+N$+M$+ :CMDM$ 


/BAS deverS ser ativado atraves 




da funpao "AUTO", ela deve ser 


mas para isso, tais programas de- 


especi'fica = > AUTO BASIC run 


vem ter a designapao /COM. 


10 CLEAR 1000 




20 CLS 




30 CLEAR 20000 




40 DEFINTI-N 




50 DIM AN$(1 000),AE$(1 000), AD$( 1 000),N L$(1 00),N F$ (100) 


60 D$="1" 




70 L=1 




80 S$="N" 




90 l$="S" 




100 ON ERROR GOTO 520 




110 OPEN "R", 1, "DIR/SYS. FN47:"+D$ 


120 FIELD 1,208 AS DUS, B AS NM$ 




130 GET 1,1 




140 ND$ = NM$ 




150 PRINT ND$ 




160 Q0$=CHR$(191)+STRING$ (62,131 )+CHR$(191 ) 


170 Q1$=CHR$(191)+STR!NG$ (62,32)+CHR$(191) 


180 Q2$=CHR$(191)+ST RINGS (62,176) 


1 90 P Rl NTQ0$;Q1 $;Q1 $;Q1 $; Q1 $;Q1 $;Q1 $;Q1 $;Q1 $; Q1 $;Q1 $;Q1 $;Q1 $;Q2$; 


CHR$( 191); 




200 FOR 1=0 TO 7 




210 FIELD 1, (1*32) AS STS, 1 AS T$(l),4 AS DV$(I), 8 AS NA$(I), 3 AS NE 


$(D 




220 NEXT 1 




230 FOR J= 3 TO 10 




240 GET 1,J 




250 FOR l = 0TO7 




260 K = ASC (T$ (1)) 




270 IF K= 0 OR K > 95 THEN 410 




280 IF K <64 THEN 310 




290 IF S$="N" GOTO 410 ELSE 350 





300 IF K-INT(K/16) * 16 >7 THEN 310 ELSE 350 
310 IF l$="N" THEN 410 
320 AN$ (N) = NAS (I) 

330 AE$ (N) = NE$ (I) 

340 ADS (N) = ND$ 

350 PRINT@15 f " * * = - S E LETO R-=* 

360 IF N>= 19PRlNT@(N-17)"64+40,Nr-";AN$(N); / r'; AE$(N); 

370 IF N > = 9 AND N < 18 PRINT@(N-7)*64+20 / N;"-";AN$(N 
AES(N); 

380 IF N < 9 PR I NT@(N+2) *64 +1 ,N;"-";ANS(N); , 7";AE$ (N); 

390 N=N+1 

400 IF N> 1000 THEN PRINT "BUFFER CHEIO" GOTO 510 
410 NEXT I 
420 NEXT J 

430 PRINT@13‘64+1," INPUT"QUAL A OPCAO A 

440 FORT=1 TO LEN (AN$(A)) 

450 AU = INSTR(AN$(A), " ") 

460 IF AU > 0 THEN AN$(A)= LEFT$(AN$(A),AU-1 ) 

470 ZZ$-AN$(A) 

480 M$=ZZ$+"/"+AE$(A) 

490 CLOSE 

500 IF AE$(A)="CMD" THEN M$="S=" +M$;CMDM$ 

510 IF AE$(A) =,/ BAS" THEN RUN MS 
520 IF ERR = 114 THEN RESUME NEXT 

530 IF ERR/2+1 =67 THEN M$= ZZ$+ / T+ ,, CMD":RESUME: GOTO 490 
540 ON ERROR GOTO 10 
550 END 

560 LPRINT CHR$ (11) 

570 LPRINT "LISTAGEM POR"; T$ 

580 LPRINT 
590 RETURN 
600 END 



| RESERVE DESDE JA, NO SEU JOR- 
NALEIRO, O PROXIMO NUMERO DE 

DIVIRTA-SE COM A 

ELETRQtilCfl 



projetos faceis, jogos, utilidades, pas- 
satempos, curiosidades, dicas, infor- 
magoes... NA LINGUAGEM QUE VOCE 

ENTENDE! 






o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 



Volte aos tempos de Nero 
usando numeros romanos, este 
programa serve para converter 
qualquer numero entre 0 e 3999 
na escrita romana, e muito inte- 
ressante saber por exemplo, a 
data de seu aniversario em nume- 



ros romanos, uma coisa 6 certa, 
que vai ser um "baita numerao" 
vai. Mostre para seu pai a idade 
dele em escrita romana, tenho 
certeza que quando e»e ver dira 
que nao 6 tao velho assim. 



100 , PROGRAMA PARA CON VERSAO DECIMAL ROMANO 
110 , PARA TRS-80 MODELOS I E III E COMPATIVEIS 
120 AUTOR: JOSE MANUEL ONETO Y VILA 
130 , 

140 DATA I, II, III, IV, V, VI, VII, VIII, IX, X, XX, XXX,XL, L, LX, LXX 
150 DATA LXXX, XC, C, CC, CCC, CD, D, DC, DCC, DCCC, CM, M, MM, MMM 
160 FOR 1=1 TO 9 
170 READ U$(l) 

180 NEXT I 
190 FOR 1=1 TO 9 
200 READ D$(l) 

210 NEXT I 
220 FOR 1=1 TO 9 
230 READ C$(l) 

240 NEXT I 
250 FOR 1=1 TO 3 
260 READ M$(l) 

270 NEXT I 
280 CLS 

290 INPUT "DIGITEUM NUMERO ";NS 

300 IF VAL (N$) < 0 OR VAL (N$) > 3999 GOTO 280 

310 PRINT 

320 PRINT 

330 NOS = RIGHT$("0000''+ N$,4) 

340 FOR 1=1 TO 4 

350 N(l) = VAL(MID$(NO+,l, 1)) 

360 NEXT I 

370 RO$=M$(N(1)) + C$(N(2))+ DS(N(3)) + U$(N(4)) 

380 PRINT RO$;" E COMO OS ROMANOS ESC REV I AM 0 NUMERO ";NS 
390 PRINT 
400 PRINT 

410 INPUT "OUTRO NUMERO ";R$ 

420 R$ = LEFT$(R$,1) 

430 IF R$ = "S" GOTO 280 
440 END 
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Para voce que adora arriscar 


fere posteriormente (s6 que 


um joguinho na loto eis aqui sua 


quem vai ganhar e voce), impri- 


chance de ganhar sem fazer for- 


me-os para melhor visualizagao 


pa, apesar que jogar na loto s6 re- 


(j£ pensou voce ganhar e depois 


quer forpa do "bolso" mas en- 


s6 ficar "curtindo" o cartao na 


fim... 


tela). 


Esse programa sortei? aleato- 


Vale a pena tentar, pois ele 


riamente ate 200 cartoes da loto, 


j£ deu duas quadras para seu 


nao permite que saiam cartoes 


criador. 


iguals, grava os cartoes e os con- 


BOA SORTE. 



10 CLEAR 1000 :DIMS (200, 1 5):RAND0M:CLS 
20PRINT@22, "PARA JOGO DA LOTO"; 

25 PRINTS *64+22, STRINGS (17, 

30PRINT@2*64+22, "OPERACOES"; 

40 PRINT@4 *64+22, "SORTEIO"; 

50PRINT@6*64+ 22, "CONFERIR"; 

60 PRINT@8 *64+22, "GRAVAR CARTOES"; 

70 PRINT® 1 0*64+22, "CARREGAR CARTOES"; 

80 PRINT® 12*64+22, "IMPRESSAO DOS CARTOES"; 

90 N=4 

100 I F N > -13,PRINT@(N-1)* 64+15, " ";:GOTO 90 
110 IF N <=3,PR|NT@(N+1)* 64+15," ";:N=12:GOTO 100 

1 20PRI NT@N *64+1 5, "= =>"; 

130 A$=INKEY$:IF A$=" " GOTO 130 

140 IF A$=CHR$(91),PRINT@N*64+15, " ";:N=N-2: GOTO 100 

150 IF A$=CHR$(10), PRINT® N*64+15, " ";:N=N+2: GOTO 100 

160 IF A$=CHR$(13), H=N-3: ON H GOTO 170, ,350, , 500, , 580, . 700 
170 CLS 

180 INPUT "QUANTOS CARTOES - MAX DE 200" ;A 
190 IF A >200, GOTO 180 

200 INPUT "QUANTAS DEZENAS-MIN.de 5 /MAX. DE 10";B 

210 IF B <5 OR B> 10, GOTO 200 

220 FOR 1=1 TOA 

230 PRINT 

240 FORC =1 TOB 

250 S (I, C)=RND(100) 

260 D-S (I, C) 

270 IF C=1, GOTO 310 

280 FORT=1 TOC-1 

290 IF D=S(I, T) , GOTO 250 

300 NEXTT 

310 PRINTS (I, C); 

320 NEXT C, I 

330 PRINT@1 5'64, "PRESSIONE QUALQUER TECLA P/ CONTINUAR";: IF INK 
EY $=" "GOTO 330 ELSE CLS : GOTO 20 

350 CLS: INPUT "NUMEROS DO RESULTADO DA LOTO";D1,D2,D3,D4,D5 
360 F=0 

370 FOR 1=1 TO A 
380 FOR C=1 TO B 
390 IF D1=S (I, C),F=F+1 





400 IF D2=S (I, C),F=F+1 
410 IF D3=S (I, C),F=F+1 
420 IF D4=S (I, C),F=F+1 
430 IF D5=S (I, C),F=F+1 
440 NEXT C 

450 IF F > =3, LPRINT "CARTAO";l:LPRINT" ":F0RJ=1 TOB:LPRINTS (l,J);:N 
EX TJ:LPRINT" ":LPR INT D1, D2, D3, D4, D5 
460 F=0 
470 NEXT I 

480PRINT@15*64, "P/CONTINUAR PRESSIONE QUALQUER TECLA";:IF INKE 
V $=*' ", GOTO 480 ELSE CLS:GOTO 20 

500 CLS'P R I NT@10 *64+22, "GRAVANDO DADOS DOS CARTOES 
505PRINT@13*64, "PRESSIONE QUALQUER TECLA QUANDO PRONTO";:IF IN 
K E Y$=" ", GOTO 505 ELSE PR | NT@1 3 ‘64, CHRS (30); 

510 PRINT # -1, A, B 
520 FOR 1=1 TO A 
530 FOR C=1 TO B 
540 PRINT #-1, S (I, C) 

550 NEXT C 
560 NEXT I 

570 PRINT® 15*64, "PRESSIONE QUALQUER TECLA P/ CONTINUAR";:l F INKEV| 
$=" ", GOTO 570 ELSE CLS:GOTO 20 

580 CLS :PR I NT°1 0*64+22, "CARREGANDO DADOS DOS CARTOES P/MEMOR 
IA"; 

590PRINT@13*64, "PRESSIONE QUALQUER TECLA QUANDO PRONTO";:IF IN 
KEY&=" ", GOTO 590 ELSE PRINTs>13*64. CHRS (30); 

600 INPUT #-1, A, B, 

610 FOR 1=1 TO A 
620 FOR C=1 TO B 
630 INPUT #-1, S )l, C) 

640 NEXT C 
650 NEXT A 

660 PRINT®15*64, "PRESSIONE QUALQUER TECLA P/CONTINUAR";:IF INKEY 
$=" ", GOTO 660 ELSE CLS:GOTO 20 
700 CLS:PRINT>8*64+5, "IMPR IMINDO"; 

710 FOR 1=1 TO A 

715 LPRINT "CARTAO NUMERO= ";l 

716 LPRINT STR I NG$(63,"=") 

720 FOR C=1 TO B 
750 LPRINT" "; 

760 LPRINT S (I, C); 

775 NEXT C 

776 LPRINT" " 

780 LPRINT STRINGS(63."=") 

790 LPRINT" " 

800 NEXT I 
810 LPRINT" " 

820 LPRINT STRING${63,"-") 

830 PRINTS 5*64+5, "PRESSIONE QUALQUER TECLA P/CONTINUAR"; 

840 IF INKEY$=" "GOTO 840 ELSE CLS:GOTO 20 
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Este programa 6 capaz de for- 
necer qualquer dia da semana de 
qualquer data deste seculo, levan- 
do em torno de 9 segundos ape- 
nas f sem o uso das fdrmulas adi- 
cionais que todo calendario usa. 



o unico por6m e que tera de ser 
dado o ano completo. Pode ser 
muito bem utilizado para pro- 
gramas de cadastro e outros do 
genero. 



60 CLEAR 1000 
70 CLS 

80 INPUT "DIA DO MES";DM 
90 IF DM < 1 OR DM >31 THEN 80 
100 INPUT "MES'':M 
110 IFMC1 ORM>12THEN 100 
120 INPUT "AND COMPLETO"; A$ 

130 A-VAL (AS) 

140 IF A < 1901 OR A > 2001 THEN FOR V=1 TO 30: PRINT® 8*64, "SINTO 
MUITO MAS ESTE CALENDARIO E APENAS PARA ESTE SECULO";:FORZA= 

1 TO 50:NEXT:PRINT® 8* 64, STRINGS (63,128);:NEXT:END 

150 IF A/4=INT (A/4) THEN F= 29:B$="BISSEXTO”:E LSE F=28:B$="NAO BISSEX 

TO" 

160 GOSUB280 

170 FOR 1=0 TO A-1 STEP 4 

180 IF 1=0 THEN GOTO 200 

190 N=N+1 

200 NEXT I 

210 B # =(A*365)+N+T-1 

220 C#=B#/7 

230 D # =C # - INT (C#) 

240 IF D # =0 THEN SS="SABADO":GOTO 370 
250 E #=INT ((D# *7)+.5) 

260 GOSUB 330 
270 GOTO 370 
280 FOR K=1 TO M 
290 READT 
300 NEXT 

310 IF M <3 THEN T=T+DM: RESTORE :RETURN 
320 T=T+F+DM:RESTORE: RETURN 
330 FOR K=1 TO E #+12 
340 READ S$ 

350 NEXT 

360 RESTORE:RETURN 
370 FOR K=1 TO M+19 
380 READ MS 
390 NEXT 

400 SS=SS+" "+STR$(DM)+ "/"+MS+"/ , '+STR$(A> 

410 PRINTS 8*64+1 0,SS; 

420 DATA 0, 31, 31, 62, 92,123, 153, 184, 215, 245, 276, 306 
430 DATA "DOM", "SEG", "TER", "QUA", "QUI", "SEX", "SAB" 

440 DATA "JAN", "FEV", "MAR", "ABR", "MAI", \JUN", "JUL", "AGO", "SET", 
"OUT", "NOV", "DEZ" 





VOCE que fabrica ou vende 
equipamentos ou qualquer 

produto ligado a area de 

Vv MICROS^ 
ANUNCIE EM 
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VEICULO EFICIENTE, QUE 
ATINGE DIRETAMENTE 0 
CONSUMIDOR DO 
SEU PRODUTO 




• (Oil) 217.6111 (DIRETO) On 






(011)943.8733 (DIRETO) 
(011)223.2037 (CONTATOS) 
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